home *** CD-ROM | disk | FTP | other *** search
/ The Fatted Calf / The Fatted Calf.iso / Applications / Communication / Weather / Source / ColorBars.m < prev    next >
Text File  |  1993-11-14  |  8KB  |  322 lines
  1. /*
  2.  * Magic Media Lab Colorbars, from the Media Lab letterhead,
  3.  * with some animation tricks.  c.f. License.m for an example of use.
  4.  */
  5.  
  6. /*
  7.     Copyright (c) 1991, 1992 by the MIT Media Laboratory
  8.     
  9.     This software is distributed by Michael Hawley of the MIT Media Laboratory. 
  10.     We hope it will be useful to you.
  11.     
  12.     Permission to use, copy, or modify this software for educational 
  13.     and research purposes only and without fee is hereby granted 
  14.     provided this notice appears on all copies, and provided you send 
  15.     us your improvements.  Any other use of this software, in original 
  16.     or modified form, in whole or in part, requires specific permission 
  17.     from MIT.  This software shall not be used, rewritten, or adapted 
  18.     for use in a commercial product without first obtaining appropriate 
  19.     licenses from MIT.  MIT makes no representations about the suitability 
  20.     of this software for any purpose: it is provided "as is" without any 
  21.     warranty and any risk, damage, or liability incurred through your use 
  22.     of this software is yours alone.
  23.     
  24.     Michael Hawley
  25.     MIT Media Laboratory
  26.     20 Ames Street, 
  27.     Cambridge, MA 02139
  28.     mike@media-lab.mit.edu
  29. */
  30. #import "ColorBars.h"
  31.  
  32. @implementation ColorBars
  33.  
  34. #define N 8
  35.  
  36. static float pct[N] = { 0.0790, 0.1535, 0.0564, 0.2279, 0.0745, 
  37.                         0.2596, .1083, .0406};
  38. static NXColor color[N];
  39.  
  40. static void
  41. initColors(){
  42.     int i = 0;
  43. #define C(r,g,b) color[i++] = NXConvertRGBToColor(r/256.0, g/256.0, b/256.0);
  44.     C(77.0,17.0,93.0)
  45.     C(0.0,85.0,0.0)
  46.     C(255.0,255.0,255.0)
  47.     C(210.0,0.0,0.0)
  48.     C(255.0,90.0,0.0)
  49.     C(0.0,0.0,151.0)
  50.     C(255.0,248.0,0.0)
  51.     C(85.0,85.0,85.0)
  52. }
  53.  
  54. - initFrame:(const NXRect *)r {
  55.     [super initFrame:r];
  56.     backgroundColor = NX_COLORWHITE;
  57.     delay = .25;
  58.     initColors();
  59.     return self;
  60. }
  61.  
  62. static void
  63. drawColors(c,R) NXColor *c; NXRect R; {
  64.     int i;
  65.     NXCoord w = R.size.width;
  66.     NXRect r;
  67.     
  68.     r = R;
  69.     r.size.width = w * pct[0];
  70.  
  71.     for (i=0; i<N; i++, r.size.width = w * pct[i]){
  72.         NXSetColor(c[i]);
  73.         NXRectFill(&r);
  74.         r.origin.x += r.size.width;
  75.     }
  76. }
  77.  
  78. - drawColors:(NXColor *)c{
  79.     drawColors(c,bounds);
  80.     return self;
  81. }
  82.  
  83. - (int)running { return running; }
  84.  
  85. static NXColor
  86. fade(i,n,c1,c2)
  87.     int i, n;
  88.     NXColor c1, c2;
  89. /* return a color that's i/n of the way from c1->c2 in RGB */
  90. {
  91.     float r1, g1, b1, r2, g2, b2;
  92.     float p = (float)(i)/(float)(n-1);
  93.     NXConvertColorToRGB(c1,&r1,&g1,&b1);
  94.     NXConvertColorToRGB(c2,&r2,&g2,&b2);
  95. #define mix(a,b) (a-p*(a-b))
  96.     r1 = mix(r1,r2); g1 = mix(g1,g2); b1 = mix(b1,b2);
  97.     c1 = NXConvertRGBToColor(r1,g1,b1);
  98.     return c1;
  99. }
  100.  
  101. - fill:(NXColor)c {
  102.     NXSetColor(c);
  103.     NXRectFill(&bounds);
  104.     return self;
  105. }
  106.  
  107. - stopIt {
  108.     running = 0;
  109.     return self;
  110. }
  111.  
  112. - (NXColor)backgroundColor { return backgroundColor; }
  113. - setBackgroundColor:(NXColor)c {
  114.     backgroundColor = c;
  115.     return self;
  116. }
  117.  
  118. static void
  119. swabScramble(n) int n[N]; {
  120.         int k=0,r,t[N] = {0,1,2,3,4,5,6,7};
  121. #define pick(t,n) t[r=random()%n]
  122. #define skip(t,n) { int i,j=0; for (i=0;i<N;i++){ t[j] = t[i]; if (t[j] != n) j++; } }
  123.     for (k=0;k<N;k++) n[k] = -1;
  124.     k = 0;
  125.     
  126.     skip(t,k);
  127.     n[k] = pick(t,7);
  128.     skip(t,n[k]);
  129.     n[n[k]] = k;
  130.     while (n[k] != -1 && k < N) k++;
  131.     
  132.     skip(t,k);
  133.     n[k] = pick(t,5);
  134.     skip(t,n[k]);
  135.     n[n[k]] = k;
  136.     while (n[k] != -1 && k < N) k++;
  137.     
  138.     skip(t,k);
  139.     n[k] = pick(t,3);
  140.     skip(t,n[k]);
  141.     n[n[k]] = k;
  142.     while (n[k] != -1 && k < N) k++;
  143.     
  144.     skip(t,k);
  145.     n[k] = pick(t,1);
  146.     skip(t,n[k]);
  147.     n[n[k]] = k;
  148.     while (n[k] != -1 && k < N) k++;
  149. }
  150.  
  151. static void
  152. swabStep(DPSTimedEntry te, double timeNow, id self)
  153. /*
  154.  * Interpolate between pairs of segments
  155.  */
  156. {
  157.     static int i = 0, f = 0;
  158.     int j;
  159.     static NXColor pc[N], cc[N];
  160.     NXColor c[N];
  161. #define M 48
  162.  
  163.     if (i==0){ /* pick random pairs of colors */
  164.         int n[8];
  165.     if (f==0){
  166.         f = 1;
  167.         for (j=0;j<N;j++){
  168.             pc[j] = [self backgroundColor];
  169.             cc[j] = color[j];
  170.         }
  171.     } else {
  172.         if (f%3 == 0){
  173.             for (j=0;j<N;j++) cc[j] = color[j];
  174.         } else {
  175.             swabScramble(n);
  176.             for (j=0;j<N;j++) cc[j] = pc[n[j]];
  177.         }
  178.     }
  179.     }
  180.     
  181.     for (j=0;j<N;j++) c[j] = fade(i,M,pc[j],cc[j]);
  182.     [self lockFocus];
  183.     [self drawColors:c];
  184.     i++;
  185.     if (i==M || ![self running]){
  186.         i = 0;
  187.     if (![self running] && te) DPSRemoveTimedEntry(te);
  188.     for (j=0;j<N;j++) pc[j] = cc[j];
  189.     f++;
  190.     }
  191.     [self unlockFocus];
  192.     [[self window] flushWindow]; NXPing();
  193. }
  194.  
  195. static void
  196. fadeStep(DPSTimedEntry te, double timeNow, id self) {
  197.     static int i = 0;
  198.     int j;
  199.     NXColor c[N];
  200. #undef M
  201. #define M 64
  202.     for (j=0;j<N;j++) c[j] = fade(i,M,[self backgroundColor],color[j]);
  203.     [self lockFocus];
  204.     [self drawColors:c];
  205.     i++;
  206.     if (i==M || ![self running]){
  207.         i = 0;
  208.     if (te) DPSRemoveTimedEntry(te);
  209.     [self stopIt];
  210.     }
  211.     [self unlockFocus];
  212.     [[self window] flushWindow]; NXPing();
  213. }
  214.  
  215. - fadeOn {
  216.     running = 1;
  217.     while (running) fadeStep(0,0.,self), usleep(2500);
  218.     return self;
  219. }
  220.  
  221. static void
  222. scramble(n) int *n; {
  223.     int i, k, l;
  224.     for (i=0; i<N; i++) n[i] = i;
  225.     for (i=0; i<N; i++){
  226.         k = random()%N;
  227.     l = n[k];
  228.     n[k] = n[i];
  229.     n[i] = l;
  230.     }
  231. }
  232.  
  233. static void
  234. scrambleStep(DPSTimedEntry te, double timeNow, id self) {
  235.     static int skip = 0;
  236.     int cn[N], j;
  237.     NXColor c[N];
  238.     
  239.     if (skip > 0) { skip--; return; }
  240.     [self lockFocus];
  241.     if (random()%8 == 3){
  242.     [self drawColors:color];
  243.     skip = 3;
  244.     } else {
  245.     scramble(cn);
  246.     for (j=0;j<N;j++) c[j] = color[cn[j]];
  247.     [self drawColors:c];
  248.     if (![self running]){
  249.         DPSRemoveTimedEntry(te);
  250.         [self stopIt];
  251.     }
  252.     }
  253.     [self unlockFocus];
  254.     [[self window] flushWindow]; NXPing();
  255. }
  256.  
  257. - winkOff {
  258.     NXRect r, a, b;
  259.     r = a = b = bounds;
  260.     drawColors(color,bounds); [window flushWindow]; NXPing();
  261.     NXSetColor(backgroundColor);
  262.     a.size.height = b.size.height = 1;
  263.     a.origin.y = r.origin.y + r.size.height;
  264.     while (a.origin.y > b.origin.y){
  265.         NXRectFill(&a); NXRectFill(&b);
  266.     a.origin.y -= 1;
  267.     b.origin.y += 1;
  268.     usleep(30000);
  269.     [window flushWindow]; NXPing();
  270.     }
  271.     a.origin.y += 1;
  272.     b.origin.y -= 1;
  273.     r = b; r.size.height = a.origin.y - b.origin.y;
  274.     while (r.size.width > 2){
  275.         NXSetColor(backgroundColor); NXRectFill(&r);
  276.     r.origin.x += 2; r.size.width -= 4;
  277.         drawColors(color,r); [window flushWindow]; NXPing();
  278.     }
  279.     r.size.width = 1;
  280.     NXSetColor(NXConvertRGBToColor(.05,.05,.05)); NXRectFill(&r);
  281.     [window flushWindow]; NXPing();
  282.     usleep(1000000);
  283.     NXSetColor(backgroundColor); NXRectFill(&r);
  284.     [window flushWindow]; NXPing();
  285.     usleep(300000);
  286.     return self;
  287. }
  288.  
  289. - setDrawstyle:(int)n {
  290.     style = n;
  291.     return [self display];
  292. }
  293.  
  294. - animate:(void (*)())f{
  295.     if (!running)
  296.         running++, DPSAddTimedEntry(0.025, f, self,100);
  297.     return self;
  298. }
  299.  
  300. - animate:(void (*)())f :(float)t{
  301.     if (!running)
  302.         running++, DPSAddTimedEntry(t, f, self,100);
  303.     return self;
  304. }
  305.  
  306. - drawSelf:(const NXRect *)rects :(int)n {
  307.     switch (style){
  308.     case PLAIN:     return [self drawColors:color];
  309.     case FADE:      return [self animate:fadeStep];
  310.     case SWAB:      return [self animate:swabStep];
  311.     case SCRAMBLE:  return [self animate:scrambleStep:delay];
  312.     case FSCRAMBLE: [self fadeOn];
  313.                     usleep(1000000);
  314.             return [self animate:scrambleStep:delay];
  315.     case CLEAR:     return [self fill:backgroundColor];
  316.     case WINKOFF:   return [self winkOff];
  317.     }
  318.     return self;
  319. }
  320.  
  321. @end
  322.